﻿! door_panel_B /modified by VL 3/1/94/
! internal macro: door_int_frame
! a=width, b=height, c=thickness, d=panel frame width,
! e=fill material
f=1"     ! internal frame width of fill

prism_ 10,c,
0,0,15,
0,b,15,
a,b,15,
a,0,15,
0,0,-1,
d,d,15,
a-d,d,15,
a-d,b-d,15,
d,b-d,15,
d,d,-1
addx d
addy d
addz c/4
call door_int_frame95 a-2*d,b-2*d,c/2,f
    if e<1 then 11
    material e              ! ***fill
    add f, f, c/8
    block a-2*(d+f), b-2*(d+f), 0.004
11:
end
